home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / dbase / dtl / ad_dele.cod < prev    next >
Encoding:
Text File  |  1993-03-09  |  523 b   |  21 lines
  1. //
  2. // Module Name: AD_DELE.COD - Menu_Act = 10
  3. // Selectors  : Scope, For_Expr, While_Exp
  4. // Description: to issue dBASE DELETE command.
  5. // Syntax     : DELETE [<scope>] [FOR <expL>] [WHILE <expL>]
  6. //
  7. lc_say='Marking Records for deletion...'
  8. DO info_box WITH lc_say
  9. SET TALK ON
  10. //
  11. DELETE\
  12. {if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  13. {if Scope} {upper(Scope)} {endif}\
  14. {if For_Expr} FOR {For_Expr}{endif}\
  15. {if While_Exp} WHILE {While_Exp}{endif}\
  16.  
  17. SET TALK OFF
  18. //
  19. // EOP AD_DELE.COD
  20.  
  21.